     **-------------------------------------------------------------------
     D X               S              5  0
     **-------------------------------------------------------------------
     C                   EVAL      X=*ALL'1'
     C     X             DSPLY
     **-------------------------------------------------------------------
     C                   SETON                                          LR
